perm filename S2.LST[F8,ALS] blob
sn#321384 filedate 1977-12-15 generic text, type T, neo UTF8
1) S2[F8,ALS] and 2) SAVE2[F8,ALS] 12-15-77 09:31 pages 1,1
**** File 1) S2[F8,ALS], Page 1 line 4
1) C00002 00002 *CHECKERS as of December 14 1977. EQU's
1) C00009 00003 ORG H'1790' SELE JUMP
**** File 2) SAVE2[F8,ALS], Page 1 line 4
2) C00002 00002 *CHECKERS as of December 1 1977. EQU's
2) C00009 00003 ORG H'1790' SELE JUMP
***************
**** File 1) S2[F8,ALS], Page 1 line 8
1) C00044 00006 * NEXT FIND RFJ LFJ RBJ LBJ
1) C00061 00007 * RFN LFN RBN LBN NORF NORT
**** File 2) SAVE2[F8,ALS], Page 1 line 8
2) C00043 00006 * NEXT FIND RFJ LFJ RBJ LBJ
2) C00061 00007 * RFN LFN RBN LBN NORF NORT
***************
**** File 1) S2[F8,ALS], Page 2 line 1
1) *CHECKERS as of December 14 1977. EQU's
1) * S2 section
**** File 2) SAVE2[F8,ALS], Page 2 line 1
2) *CHECKERS as of December 1 1977. EQU's
2) * S2 section
***************
**** File 1) S2[F8,ALS], Page 2 line 57
1) TRE3 EQU H'0E3E' Passed flag at level 30
1) TRE5 EQU H'0E50' PLY 3 location
**** File 2) SAVE2[F8,ALS], Page 2 line 57
2) TRE3 EQU H'0E30' PLY 1 location
2) TRE5 EQU H'0E50' PLY 3 location
***************
**** File 1) S2[F8,ALS], Page 2 line 85
1) PLYT EQU H'E9' Playing depth for Tom (neg. of MOB sum)
1) PLYD EQU H'E1' Playing depth for Dick
1) PLYH EQU H'D9' Playing depth for Harry
1) *SPECIAL CONSTANTS
**** File 2) SAVE2[F8,ALS], Page 2 line 85
2) PLYT EQU H'FD' Ply depth for Robot Tom (stored as neg.)
2) PLYD EQU H'FC' Ply depth for Robot Dick
2) PLYH EQU H'FB' Ply depth for Robot Harry
2) *SPECIAL CONSTANTS
***************
1) S2[F8,ALS] and 2) SAVE2[F8,ALS] 12-15-77 09:31 pages 2,2
**** File 1) S2[F8,ALS], Page 2 line 100
1) PMOV EQU H'1116' Player's move
1) DJMP EQU H'1229' Jump again entry
1) WMC EQU H'1249' Write message
1) BORD EQU H'132B' Normal redo of board
1) MWAD EQU H'1623'
1) ENIN EQU H'164E'
1) DAI EQU H'166B'
1) SCRD EQU H'167D'
1) SHOW EQU H'1707' Debugging aid to show board
1) ORG H'1790' SELE JUMP
1) *-*-*-
1) SELE PI SHOW
1) PI WAST Debugging show board
**** File 2) SAVE2[F8,ALS], Page 2 line 100
2) PMOV EQU H'10F5' Player's move
2) DJMP EQU H'120E' Jump again entry
2) WMC EQU H'122B' Write message
2) BORD EQU H'1313' Normal redo of board
2) MWAD EQU H'1634'
2) ENIN EQU H'165C'
2) DAI EQU H'1679'
2) SHOW EQU H'1721' Debugging aid to show board
2) ORG H'1790' SELE JUMP
2) *-*-*-
2) SELE LR A,HL
2) SR 4
2) CI H'2'
2) BNZ SEL2
2) PI SHOW
2) PI WAST Debugging show board
***************
**** File 1) S2[F8,ALS], Page 3 line 10
1) CLR
1) AM
1) LR 0,A Save it temporarily
1) BNZ SEL3
**** File 2) SAVE2[F8,ALS], Page 3 line 14
2) LM
2) LR 0,A Save it temporarily
2) NS 0 To set status byte
2) BNZ SEL3
***************
1) S2[F8,ALS] and 2) SAVE2[F8,ALS] 12-15-77 09:31 pages 3,3
**** File 1) S2[F8,ALS], Page 3 line 161
1) CLR
1) XS 0 Was there a promotion?
1) BZ JU71 No
**** File 2) SAVE2[F8,ALS], Page 3 line 165
2) LR A,0
2) CI H'1' Was there a promotion?
2) BZ JU71 No
***************
**** File 1) S2[F8,ALS], Page 3 line 177
1) CI H'B' Is there room? (COULD BE SET 1 HIGHER)
1) BM JUM9 No
**** File 2) SAVE2[F8,ALS], Page 3 line 181
2) CI H'C' Is there room?
2) BM JUM9 No
***************
**** File 1) S2[F8,ALS], Page 3 line 187
1) JU78 DCI MOBS Get move count
1) AI -H'2' for current board
1) ADC
1) LM
1) LR 2,A Save temporarily
1) CLR Mobility for passed board
1) ST to 0 to prevent compression
1) LR DC,H
1) LI H'1C' Get to byte location
**** File 2) SAVE2[F8,ALS], Page 3 line 191
2) JU78 LR DC,H
2) LI H'1C' Get to byte location
***************
**** File 1) S2[F8,ALS], Page 3 line 208
1) DCI SCOR Advance score for
1) AI -H'3' passed and continuation boards
1) BP JU73 Trouble if neg
1) INC so move up 1
1) JU73 SL 1
1) ADC from current board
**** File 2) SAVE2[F8,ALS], Page 3 line 205
2) DCI SCOR Advance score
2) AI -H'2' Scor not saved for HL=1
2) SL 1
2) ADC from current board
1) S2[F8,ALS] and 2) SAVE2[F8,ALS] 12-15-77 09:31 pages 3,3
***************
**** File 1) S2[F8,ALS], Page 3 line 219
1) LR 0,A
1) JU74 XDC
1) LM
**** File 2) SAVE2[F8,ALS], Page 3 line 214
2) XDC
2) LM
***************
**** File 1) S2[F8,ALS], Page 3 line 224
1) DS 0
1) BNZ JU74
1) LIS H'2' Copy data two blocks forward
**** File 2) SAVE2[F8,ALS], Page 3 line 218
2) XDC
2) LM
2) XDC
2) ST
2) LIS H'2' Copy data two blocks forward
***************
**** File 1) S2[F8,ALS], Page 3 line 231
1) PI SCRD SC to RAM direct
1) PI EMPT Re-do to reflect changes
**** File 2) SAVE2[F8,ALS], Page 3 line 227
2) LISU PLOC SC to RA direct
2) LISL 0
2) JU72 LR A,I
2) ST
2) BR7 JU72
2) LR A,I
2) ST
2) LISU KLOC
2) JU73 LR A,I
2) ST
2) BR7 JU73
2) LR A,I
2) ST
2) PI EMPT Re-do to reflect changes
***************
**** File 1) S2[F8,ALS], Page 4 line 95
1) S2[F8,ALS] and 2) SAVE2[F8,ALS] 12-15-77 09:31 pages 4,4
1) * Compacting routine to save space
1) DCI TRE3 Location of level 30 passed flag
1) CLR
1) XM
1) BM FOR3 Don't compress in this case
1) LR A,HL
**** File 2) SAVE2[F8,ALS], Page 4 line 95
2) * Compacting routine to save space. Note this
2) * complicates reporting of win and lose distances.
2) LR A,HL
***************
**** File 1) S2[F8,ALS], Page 4 line 108
1) CI H'1' (a 0 excludes passed boards)
1) BNZ FOR3 Not 1 move
1) LM
1) CI H'1'
1) BNZ FOR3 Not 1 move
1) LR A,HL
**** File 2) SAVE2[F8,ALS], Page 4 line 105
2) CI H'1'
2) BNZ FOR3 More than 1 move
2) LM
2) CI H'1'
2) BNZ FOR3 More than 1 move
2) LR A,HL
***************
**** File 1) S2[F8,ALS], Page 4 line 153
1) PI RARA RAM to RAM transfer
1) JMP FIND FIND exits to PMOV when HL is H'10'
**** File 2) SAVE2[F8,ALS], Page 4 line 150
2) LIS H'1'
2) SL 4
2) LISU 2
2) LISL 0
2) LR S,A
2) PI TRAN
2) JMP FIND FIND exits to PMOV when HL is H'10'
***************
**** File 1) S2[F8,ALS], Page 5 line 45
1) *-*-*- RAM TO RAM, source start in DC1, destination start in DC0, 16 bytes
1) * Uses R0
1) RARA LR K,P
1) S2[F8,ALS] and 2) SAVE2[F8,ALS] 12-15-77 09:31 pages 5,5
1) LIS H'1'
1) SL 4
1) LR 0,A
1) RAR2 XDC
1) LM
1) XDC
1) ST
1) DS 0
1) BNZ RAR2
1) PK
1) *-*-*- Test if Kings only can move
**** File 2) SAVE2[F8,ALS], Page 5 line 45
2) *-*-*- Test if Kings only can move
***************
**** File 1) S2[F8,ALS], Page 6 line 119
1) LIS H'1' The RFJ direction and J indicator
1) SL 4
**** File 2) SAVE2[F8,ALS], Page 6 line 119
2) LI H'1' The RFJ direction and J indicator
2) SL 4
***************
**** File 1) S2[F8,ALS], Page 6 line 253
1) BM FJ7 Maybe can compact data
1) CI H'1' A player's board
**** File 2) SAVE2[F8,ALS], Page 6 line 253
2) BM FJ7 Could be a second continuation
2) CI H'1' A player's board
***************
**** File 1) S2[F8,ALS], Page 6 line 270
1) * A successful continuation that might be compacted
1) FJ7 DCI TRE3 Was 30 passed?
1) CLR
1) XM
1) BM FJ10 No, dangerous to compress
1) LR DC,H
1) CLR
1) COM Back to PASM
1) ADC
1) LM
1) CI H'1' Other than 1 move?
1) BNZ FJ10 Yes so save this one here
1) LR DC,H No, so we can move data
1) S2[F8,ALS] and 2) SAVE2[F8,ALS] 12-15-77 09:31 pages 6,6
**** File 2) SAVE2[F8,ALS], Page 6 line 270
2) FJ7 LR DC,H
2) LIS H'DE' Back 3 levels at ACTM
2) ADC
2) CLR
2) XM A previous continuation?
2) BP FJ10 No
2) LM were there more than 2 moves?
2) CI H'1'
2) BM FJ8 Yes so save this one here
2) LR DC,H No, so we can move data
***************
**** File 1) S2[F8,ALS], Page 6 line 290
1) PI RARA Fast RAM to RAM transfer
1) LR A,HL
1) SR 4
1) BR FJ11
**** File 2) SAVE2[F8,ALS], Page 6 line 287
2) LISU 2
2) LISL 0
2) LIS H'2'
2) SL 4
2) LR S,A
2) PI TRAN
2) FJ8 LR A,HL
2) SR 4
2) CI H'E' Are we out of space?
2) BZ FJ12 Yes
2) BR FJ11
***************
**** File 1) S2[F8,ALS], Page 7 line 125
1) CI H'1'
1) BNZ NOR2 Checking for possible player's moves?
**** File 2) SAVE2[F8,ALS], Page 7 line 125
2) AI -H'1'
2) BNZ NOR2 Checking for possible player's moves?
***************
**** File 1) S2[F8,ALS], Page 7 line 129
1) NOR2 CI H'D' Are we out of space?
1) BM NOR4 Yes
1) AI -H'2' To index MOBS
1) LR 0,A
1) S2[F8,ALS] and 2) SAVE2[F8,ALS] 12-15-77 09:31 pages 7,7
1) DCI PLY0 Neg. of allowed MOB sum
1) LM
1) DCI MOBS
1) BR NOR5
1) NOR3 AM Add up mobilities
1) AI -H'1' So single jumps will not count
1) NOR5 DS 0
1) BP NOR3
1) AS 2 Add in the current one
1) BP NOR4 Time to stop
1) LR A,2
1) ST Save latest mobility
1) JMP SELE and go on
1) NOR4 JMP EVAL Evaluate
1) * AFT
**** File 2) SAVE2[F8,ALS], Page 7 line 129
2) NOR2 DCI PLY0 Player's choice of ply
2) AM
2) LR DC,H Reset DC
2) BM NOR4 Go on in this case
2) BNZ NOR3 Stop for sure
2) LI H'FD' Decision based on previous move
2) ADC
2) LM
2) NI H'10' Test jump flag
2) BNZ NOR4 Go on if previous move was a jump
2) NOR3 JMP EVAL
2) NOR4 LR A,HL
2) SR 4
2) AI -H'2'
2) BM NOR7
2) DCI MOBS
2) ADC
2) LR A,2
2) ST Save mobility in MOBS space indexed by ply
2) NOR7 JMP SELE
2) * AFT
***************
**** File 1) S2[F8,ALS], Page 8 line 13
1) AFTT DCI TREE Back to player's board
1) LR H,DC
1) LR A,7
**** File 2) SAVE2[F8,ALS], Page 8 line 13
2) AFTT LIS H'1' Back to player's board
2) SL 4
2) LR HL,A
1) S2[F8,ALS] and 2) SAVE2[F8,ALS] 12-15-77 09:31 pages 8,8
2) LR A,7
***************
**** File 1) S2[F8,ALS], Page 8 line 132
1) PI RARA RAM to TAM transfer
1) BR AF1B and back 1 level
**** File 2) SAVE2[F8,ALS], Page 8 line 133
2) LISU 2
2) LISL 0
2) LIS H'1'
2) SL 4 Fast H'10'
2) LR S,A
2) PI TRAN Save board
2) BR AF1B and back 1 level
***************
**** File 1) S2[F8,ALS], Page 10 line 79
1) LR 4,A
1) LIS H'7' "I can win in "
**** File 2) SAVE2[F8,ALS], Page 10 line 79
2) LR 2,A
2) LIS H'7' "I can win in "
***************
**** File 1) S2[F8,ALS], Page 10 line 85
1) LR 4,A
1) LIS H'8' "You can win in "
**** File 2) SAVE2[F8,ALS], Page 10 line 85
2) LR 2,A
2) LIS H'8' "You can win in "
***************
**** File 1) S2[F8,ALS], Page 10 line 91
1) LR A,4
1) AI H'3F'
1) LR 4,A
1) LR TEMP,A
**** File 2) SAVE2[F8,ALS], Page 10 line 91
2) LR A,2
2) AI H'3F'
2) LR TEMP,A
***************
1) S2[F8,ALS] and 2) SAVE2[F8,ALS] 12-15-77 09:31 pages 10,10
**** File 1) S2[F8,ALS], Page 10 line 103
1) LR A,4
1) CI H'2' Early warning only?
**** File 2) SAVE2[F8,ALS], Page 10 line 102
2) LR A,2
2) CI H'2' Early warning only?
***************